home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / asm / alib11b.zip / CODE1.ZIP / DISPTEXT / CRTSAVE.ASM next >
Assembly Source File  |  1994-10-04  |  2KB  |  94 lines
  1.     page    66,132
  2. ;******************************** CRT8.ASM   *********************************
  3.  
  4. comment 
  5. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( DISPLAY )
  6. DISK_TO_CRT - loads a screen image file saved by CRT_TO_DISK
  7. ;
  8. ; inputs:    DS:[DX] = address of ASCIIZ filename
  9. ; 
  10. ; outputs:   if CF = 1, AX = MS-DOS file I/O error code
  11. ;            if CF = 0, no error
  12. ;            registers modified = AX            
  13. ;
  14. ;notes:     The input file is assumed to be closed when DISK_TO_CRT is
  15. ;           called, and is left closed upon exit.
  16. ;* * * * * * * * * * * * * *
  17. 
  18.     public    disk_to_crt
  19. DISK_TO_CRT    PROC    FAR
  20.     MOV     AH,01
  21.     JMP     ctd_entry
  22. DISK_TO_CRT    ENDP
  23. comment 
  24. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( DISPLAY )
  25. CRT_TO_DISK - saves a screen image as a file
  26. ;
  27. ; inputs:    DS:[DX] = address of ASCIIZ filename
  28. ; 
  29. ; outputs:   if CF = 1, AX = MS-DOS file I/O error code
  30. ;            if CF = 0, no error
  31. ;            registers modified = AX
  32. ;* * * * * * * * * * * * * *
  33. 
  34.     public    crt_to_disk
  35. CRT_TO_DISK    PROC    FAR
  36.     MOV     AH,00
  37. ctd_entry:
  38.     PUSHF
  39.     PUSH    BP
  40.     MOV     BP,SP
  41.     SUB     SP,+02
  42.     APUSH   BX,CX,DX,SI,DS,ES,DX
  43.     MOV     [BP-02],AH
  44.     mov     al,cs:lib_info.crt_rows
  45.     mov     ch,cs:lib_info.crt_columns
  46. ;;    call    DISPLAY_PARMS ;out: al=rows ch=columns bx:si=crt buf  dx=cga port
  47.     MUL     CH
  48.     SHL     AX,1
  49.     POP     DX
  50.     PUSH    AX
  51.     XOR     CX,CX
  52.     MOV     AX,3C00h
  53.     ADD     AH,[BP-02]
  54.     INT     21h            ;create file ds:dx using attribute (cx)
  55.     POP     CX
  56.     mov     ds,cs:lib_info.crt_seg
  57.     JB        ctd_exit
  58.     MOV     BX,AX
  59.     MOV     DX,0        ;assume display offset is zero (page 0)
  60.     MOV     AH,40h
  61.     SUB     AH,[BP-02]
  62.     INT     21h            ;write to file bx=handle cx=len ds:dx=data
  63.     JB      CTD_CONT
  64.     CMP     AX,CX
  65.     JZ      CTD_01
  66. CTD_CONT:
  67.     PUSH    AX
  68.     MOV     AH,3Eh
  69.     INT     21h            ;close file handle (bx)
  70.     POP     AX
  71.     STC
  72.     JMP     ctd_exit
  73.  
  74. CTD_01:    
  75.     MOV     AH,3Eh
  76.     INT     21h            ;close file handle (bx)
  77.     JB      ctd_exit
  78.     CLC
  79. ctd_exit:
  80.     APOP    ES,DS,SI,DX,CX,BX
  81.     MOV     SP,BP
  82.     POP     BP
  83.     JB      ctd_exit2
  84.     POPF
  85.     CLC
  86.     RETF
  87. ctd_exit2:
  88.     POPF
  89.     STC
  90.     RETF
  91. CRT_TO_DISK    ENDP
  92.  
  93.     end
  94.